home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / boxes / about3d / about.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-08  |  20.4 KB  |  624 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   5265
  6.    ClientLeft      =   2475
  7.    ClientTop       =   1770
  8.    ClientWidth     =   6570
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   5670
  12.    Left            =   2415
  13.    LinkTopic       =   "frmAbout"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5265
  17.    ScaleWidth      =   6570
  18.    Top             =   1425
  19.    Width           =   6690
  20.    Begin CommandButton cmdOK 
  21.       Caption         =   "&OK"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   495
  29.       Left            =   5115
  30.       TabIndex        =   16
  31.       Top             =   450
  32.       Width           =   1215
  33.    End
  34.    Begin Image imgIcon 
  35.       Height          =   480
  36.       Left            =   465
  37.       Picture         =   ABOUT.FRX:0000
  38.       Top             =   480
  39.       Width           =   480
  40.    End
  41.    Begin Label lblWinSysDir 
  42.       AutoSize        =   -1  'True
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Windows System Directory"
  45.       Height          =   195
  46.       Left            =   2685
  47.       TabIndex        =   32
  48.       Top             =   4665
  49.       Width           =   2265
  50.    End
  51.    Begin Label lblWinDir 
  52.       AutoSize        =   -1  'True
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Windows Directory"
  55.       Height          =   195
  56.       Left            =   2685
  57.       TabIndex        =   36
  58.       Top             =   4440
  59.       Width           =   1605
  60.    End
  61.    Begin Label lblMisc 
  62.       Alignment       =   1  'Right Justify
  63.       AutoSize        =   -1  'True
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Database Path:"
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Sans Serif"
  69.       FontSize        =   8.25
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   195
  73.       Index           =   15
  74.       Left            =   1500
  75.       TabIndex        =   35
  76.       Top             =   4215
  77.       Width           =   1110
  78.    End
  79.    Begin Label lblMisc 
  80.       Alignment       =   1  'Right Justify
  81.       AutoSize        =   -1  'True
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Windows Directory:"
  84.       FontBold        =   0   'False
  85.       FontItalic      =   0   'False
  86.       FontName        =   "MS Sans Serif"
  87.       FontSize        =   8.25
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       Height          =   195
  91.       Index           =   14
  92.       Left            =   1230
  93.       TabIndex        =   34
  94.       Top             =   4440
  95.       Width           =   1380
  96.    End
  97.    Begin Label lblAppName 
  98.       Alignment       =   2  'Center
  99.       BackStyle       =   0  'Transparent
  100.       Caption         =   "Application Name"
  101.       FontBold        =   -1  'True
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   15
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   375
  108.       Index           =   1
  109.       Left            =   -30
  110.       TabIndex        =   33
  111.       Top             =   105
  112.       Width           =   6600
  113.    End
  114.    Begin Label lblBorder 
  115.       BackStyle       =   0  'Transparent
  116.       Height          =   3675
  117.       Left            =   210
  118.       TabIndex        =   2
  119.       Top             =   1380
  120.       Width           =   6135
  121.    End
  122.    Begin Label lblDBCleanDate 
  123.       AutoSize        =   -1  'True
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Last Database Cleanup Date"
  126.       Height          =   195
  127.       Left            =   2685
  128.       TabIndex        =   3
  129.       Top             =   3990
  130.       Width           =   2460
  131.    End
  132.    Begin Label lblDBPath 
  133.       AutoSize        =   -1  'True
  134.       BackStyle       =   0  'Transparent
  135.       Caption         =   "Database Path"
  136.       Height          =   195
  137.       Left            =   2685
  138.       TabIndex        =   4
  139.       Top             =   4215
  140.       Width           =   1275
  141.    End
  142.    Begin Label lblDBVer 
  143.       AutoSize        =   -1  'True
  144.       BackStyle       =   0  'Transparent
  145.       Caption         =   "Database Version"
  146.       Height          =   195
  147.       Left            =   2685
  148.       TabIndex        =   5
  149.       Top             =   3765
  150.       Width           =   1515
  151.    End
  152.    Begin Label lblProgSer 
  153.       AutoSize        =   -1  'True
  154.       BackStyle       =   0  'Transparent
  155.       Caption         =   "Program Serial number"
  156.       Height          =   195
  157.       Left            =   2685
  158.       TabIndex        =   6
  159.       Top             =   3540
  160.       Width           =   1920
  161.    End
  162.    Begin Label lblLicensedUser 
  163.       AutoSize        =   -1  'True
  164.       BackStyle       =   0  'Transparent
  165.       Caption         =   "Licensed User Name"
  166.       Height          =   195
  167.       Left            =   2685
  168.       TabIndex        =   7
  169.       Top             =   3315
  170.       Width           =   1770
  171.    End
  172.    Begin Label lblGDIFree 
  173.       AutoSize        =   -1  'True
  174.       BackStyle       =   0  'Transparent
  175.       Caption         =   "FreeGDIResources"
  176.       Height          =   195
  177.       Left            =   2685
  178.       TabIndex        =   8
  179.       Top             =   3090
  180.       Width           =   1620
  181.    End
  182.    Begin Label lblUserFree 
  183.       AutoSize        =   -1  'True
  184.       BackStyle       =   0  'Transparent
  185.       Caption         =   "Free User Resources"
  186.       Height          =   195
  187.       Left            =   2685
  188.       TabIndex        =   9
  189.       Top             =   2865
  190.       Width           =   1800
  191.    End
  192.    Begin Label lblLargestFreeBlock 
  193.       AutoSize        =   -1  'True
  194.       BackStyle       =   0  'Transparent
  195.       Caption         =   "Largest Free Memory Block"
  196.       Height          =   195
  197.       Left            =   2685
  198.       TabIndex        =   10
  199.       Top             =   2640
  200.       Width           =   2325
  201.    End
  202.    Begin Label lblTotalFreeMem 
  203.       AutoSize        =   -1  'True
  204.       BackStyle       =   0  'Transparent
  205.       Caption         =   "Total Free Memory"
  206.       Height          =   195
  207.       Left            =   2685
  208.       TabIndex        =   11
  209.       Top             =   2415
  210.       Width           =   1590
  211.    End
  212.    Begin Label lblWinMode 
  213.       AutoSize        =   -1  'True
  214.       BackStyle       =   0  'Transparent
  215.       Caption         =   "Windows Mode"
  216.       Height          =   195
  217.       Left            =   2685
  218.       TabIndex        =   12
  219.       Top             =   1740
  220.       Width           =   1305
  221.    End
  222.    Begin Label lblMathCo 
  223.       AutoSize        =   -1  'True
  224.       BackStyle       =   0  'Transparent
  225.       Caption         =   "Math Coprocessor"
  226.       Height          =   195
  227.       Left            =   2685
  228.       TabIndex        =   13
  229.       Top             =   2190
  230.       Width           =   1545
  231.    End
  232.    Begin Label lblCPU 
  233.       AutoSize        =   -1  'True
  234.       BackStyle       =   0  'Transparent
  235.       Caption         =   "CPU"
  236.       Height          =   195
  237.       Left            =   2685
  238.       TabIndex        =   14
  239.       Top             =   1965
  240.       Width           =   390
  241.    End
  242.    Begin Label lblWinVer 
  243.       AutoSize        =   -1  'True
  244.       BackStyle       =   0  'Transparent
  245.       Caption         =   "Windows Version"
  246.       Height          =   195
  247.       Left            =   2685
  248.       TabIndex        =   15
  249.       Top             =   1515
  250.       Width           =   1470
  251.    End
  252.    Begin Label lblMisc 
  253.       Alignment       =   1  'Right Justify
  254.       BackStyle       =   0  'Transparent
  255.       Caption         =   "Operating Mode:"
  256.       FontBold        =   0   'False
  257.       FontItalic      =   0   'False
  258.       FontName        =   "MS Sans Serif"
  259.       FontSize        =   8.25
  260.       FontStrikethru  =   0   'False
  261.       FontUnderline   =   0   'False
  262.       Height          =   195
  263.       Index           =   0
  264.       Left            =   1320
  265.       TabIndex        =   17
  266.       Top             =   1740
  267.       Width           =   1290
  268.    End
  269.    Begin Label lblMisc 
  270.       Alignment       =   1  'Right Justify
  271.       AutoSize        =   -1  'True
  272.       BackStyle       =   0  'Transparent
  273.       Caption         =   "CPU Type:"
  274.       FontBold        =   0   'False
  275.       FontItalic      =   0   'False
  276.       FontName        =   "MS Sans Serif"
  277.       FontSize        =   8.25
  278.       FontStrikethru  =   0   'False
  279.       FontUnderline   =   0   'False
  280.       Height          =   195
  281.       Index           =   1
  282.       Left            =   1830
  283.       TabIndex        =   18
  284.       Top             =   1965
  285.       Width           =   780
  286.    End
  287.    Begin Label lblMisc 
  288.       Alignment       =   1  'Right Justify
  289.       AutoSize        =   -1  'True
  290.       BackStyle       =   0  'Transparent
  291.       Caption         =   "Free GDI Resources:"
  292.       FontBold        =   0   'False
  293.       FontItalic      =   0   'False
  294.       FontName        =   "MS Sans Serif"
  295.       FontSize        =   8.25
  296.       FontStrikethru  =   0   'False
  297.       FontUnderline   =   0   'False
  298.       Height          =   195
  299.       Index           =   2
  300.       Left            =   1110
  301.       TabIndex        =   19
  302.       Top             =   3090
  303.       Width           =   1500
  304.    End
  305.    Begin Label lblMisc 
  306.       Alignment       =   1  'Right Justify
  307.       AutoSize        =   -1  'True
  308.       BackStyle       =   0  'Transparent
  309.       Caption         =   "Math Coprocessor:"
  310.       FontBold        =   0   'False
  311.       FontItalic      =   0   'False
  312.       FontName        =   "MS Sans Serif"
  313.       FontSize        =   8.25
  314.       FontStrikethru  =   0   'False
  315.       FontUnderline   =   0   'False
  316.       Height          =   195
  317.       Index           =   3
  318.       Left            =   1275
  319.       TabIndex        =   20
  320.       Top             =   2190
  321.       Width           =   1335
  322.    End
  323.    Begin Label lblMisc 
  324.       Alignment       =   1  'Right Justify
  325.       AutoSize        =   -1  'True
  326.       BackStyle       =   0  'Transparent
  327.       Caption         =   "Total Free Memory:"
  328.       FontBold        =   0   'False
  329.       FontItalic      =   0   'False
  330.       FontName        =   "MS Sans Serif"
  331.       FontSize        =   8.25
  332.       FontStrikethru  =   0   'False
  333.       FontUnderline   =   0   'False
  334.       Height          =   195
  335.       Index           =   4
  336.       Left            =   1245
  337.       TabIndex        =   21
  338.       Top             =   2415
  339.       Width           =   1365
  340.    End
  341.    Begin Label lblMisc 
  342.       Alignment       =   1  'Right Justify
  343.       AutoSize        =   -1  'True
  344.       BackStyle       =   0  'Transparent
  345.       Caption         =   "Operating System:"
  346.       FontBold        =   0   'False
  347.       FontItalic      =   0   'False
  348.       FontName        =   "MS Sans Serif"
  349.       FontSize        =   8.25
  350.       FontStrikethru  =   0   'False
  351.       FontUnderline   =   0   'False
  352.       Height          =   195
  353.       Index           =   5
  354.       Left            =   1320
  355.       TabIndex        =   22
  356.       Top             =   1515
  357.       Width           =   1290
  358.    End
  359.    Begin Label lblMisc 
  360.       Alignment       =   1  'Right Justify
  361.       AutoSize        =   -1  'True
  362.       BackStyle       =   0  'Transparent
  363.       Caption         =   "Largest Free Memory Block:"
  364.       FontBold        =   0   'False
  365.       FontItalic      =   0   'False
  366.       FontName        =   "MS Sans Serif"
  367.       FontSize        =   8.25
  368.       FontStrikethru  =   0   'False
  369.       FontUnderline   =   0   'False
  370.       Height          =   195
  371.       Index           =   6
  372.       Left            =   630
  373.       TabIndex        =   23
  374.       Top             =   2640
  375.       Width           =   1980
  376.    End
  377.    Begin Label lblMisc 
  378.       Alignment       =   1  'Right Justify
  379.       AutoSize        =   -1  'True
  380.       BackStyle       =   0  'Transparent
  381.       Caption         =   "Free User Resources:"
  382.       FontBold        =   0   'False
  383.       FontItalic      =   0   'False
  384.       FontName        =   "MS Sans Serif"
  385.       FontSize        =   8.25
  386.       FontStrikethru  =   0   'False
  387.       FontUnderline   =   0   'False
  388.       Height          =   195
  389.       Index           =   7
  390.       Left            =   1065
  391.       TabIndex        =   24
  392.       Top             =   2865
  393.       Width           =   1545
  394.    End
  395.    Begin Label lblMisc 
  396.       Alignment       =   1  'Right Justify
  397.       AutoSize        =   -1  'True
  398.       BackStyle       =   0  'Transparent
  399.       Caption         =   "Program Serial Number:"
  400.       FontBold        =   0   'False
  401.       FontItalic      =   0   'False
  402.       FontName        =   "MS Sans Serif"
  403.       FontSize        =   8.25
  404.       FontStrikethru  =   0   'False
  405.       FontUnderline   =   0   'False
  406.       Height          =   195
  407.       Index           =   8
  408.       Left            =   945
  409.       TabIndex        =   25
  410.       Top             =   3540
  411.       Width           =   1665
  412.    End
  413.    Begin Label lblMisc 
  414.       Alignment       =   1  'Right Justify
  415.       AutoSize        =   -1  'True
  416.       BackStyle       =   0  'Transparent
  417.       Caption         =   "Licensed To:"
  418.       FontBold        =   0   'False
  419.       FontItalic      =   0   'False
  420.       FontName        =   "MS Sans Serif"
  421.       FontSize        =   8.25
  422.       FontStrikethru  =   0   'False
  423.       FontUnderline   =   0   'False
  424.       Height          =   195
  425.       Index           =   9
  426.       Left            =   1680
  427.       TabIndex        =   26
  428.       Top             =   3315
  429.       Width           =   930
  430.    End
  431.    Begin Label lblMisc 
  432.       Alignment       =   1  'Right Justify
  433.       AutoSize        =   -1  'True
  434.       BackStyle       =   0  'Transparent
  435.       Caption         =   "Last Database Cleanup:"
  436.       FontBold        =   0   'False
  437.       FontItalic      =   0   'False
  438.       FontName        =   "MS Sans Serif"
  439.       FontSize        =   8.25
  440.       FontStrikethru  =   0   'False
  441.       FontUnderline   =   0   'False
  442.       Height          =   195
  443.       Index           =   10
  444.       Left            =   900
  445.       TabIndex        =   27
  446.       Top             =   3990
  447.       Width           =   1710
  448.    End
  449.    Begin Label lblMisc 
  450.       Alignment       =   1  'Right Justify
  451.       AutoSize        =   -1  'True
  452.       BackStyle       =   0  'Transparent
  453.       Caption         =   "Windows System Directory:"
  454.       FontBold        =   0   'False
  455.       FontItalic      =   0   'False
  456.       FontName        =   "MS Sans Serif"
  457.       FontSize        =   8.25
  458.       FontStrikethru  =   0   'False
  459.       FontUnderline   =   0   'False
  460.       Height          =   195
  461.       Index           =   11
  462.       Left            =   675
  463.       TabIndex        =   28
  464.       Top             =   4665
  465.       Width           =   1935
  466.    End
  467.    Begin Label lblMisc 
  468.       Alignment       =   1  'Right Justify
  469.       AutoSize        =   -1  'True
  470.       BackStyle       =   0  'Transparent
  471.       Caption         =   "Database Version:"
  472.       FontBold        =   0   'False
  473.       FontItalic      =   0   'False
  474.       FontName        =   "MS Sans Serif"
  475.       FontSize        =   8.25
  476.       FontStrikethru  =   0   'False
  477.       FontUnderline   =   0   'False
  478.       Height          =   195
  479.       Index           =   12
  480.       Left            =   1305
  481.       TabIndex        =   29
  482.       Top             =   3765
  483.       Width           =   1305
  484.    End
  485.    Begin Label lblCopyright 
  486.       Alignment       =   2  'Center
  487.       BackStyle       =   0  'Transparent
  488.       Caption         =   "All Rights Reserved"
  489.       FontBold        =   0   'False
  490.       FontItalic      =   0   'False
  491.       FontName        =   "MS Sans Serif"
  492.       FontSize        =   8.25
  493.       FontStrikethru  =   0   'False
  494.       FontUnderline   =   0   'False
  495.       Height          =   195
  496.       Index           =   1
  497.       Left            =   0
  498.       TabIndex        =   31
  499.       Top             =   1035
  500.       Width           =   6600
  501.    End
  502.    Begin Label lblCopyright 
  503.       Alignment       =   2  'Center
  504.       BackStyle       =   0  'Transparent
  505.       Caption         =   "Copyright 
  506.  1995 by Whoever Owns It"
  507.       FontBold        =   0   'False
  508.       FontItalic      =   0   'False
  509.       FontName        =   "MS Sans Serif"
  510.       FontSize        =   8.25
  511.       FontStrikethru  =   0   'False
  512.       FontUnderline   =   0   'False
  513.       Height          =   195
  514.       Index           =   0
  515.       Left            =   0
  516.       TabIndex        =   30
  517.       Top             =   825
  518.       Width           =   6600
  519.    End
  520.    Begin Label lblVersion 
  521.       Alignment       =   2  'Center
  522.       BackStyle       =   0  'Transparent
  523.       Caption         =   "Version number"
  524.       FontBold        =   -1  'True
  525.       FontItalic      =   0   'False
  526.       FontName        =   "MS Sans Serif"
  527.       FontSize        =   12
  528.       FontStrikethru  =   0   'False
  529.       FontUnderline   =   0   'False
  530.       Height          =   300
  531.       Left            =   0
  532.       TabIndex        =   1
  533.       Top             =   525
  534.       Width           =   6600
  535.    End
  536.    Begin Label lblAppName 
  537.       Alignment       =   2  'Center
  538.       BackStyle       =   0  'Transparent
  539.       Caption         =   "Application Name"
  540.       FontBold        =   -1  'True
  541.       FontItalic      =   0   'False
  542.       FontName        =   "MS Sans Serif"
  543.       FontSize        =   15
  544.       FontStrikethru  =   0   'False
  545.       FontUnderline   =   0   'False
  546.       ForeColor       =   &H00808080&
  547.       Height          =   375
  548.       Index           =   0
  549.       Left            =   0
  550.       TabIndex        =   0
  551.       Top             =   150
  552.       Width           =   6600
  553.    End
  554. Option Explicit
  555. Sub cmdOK_Click ()
  556.    Unload Me
  557. End Sub
  558. Sub Form_Load ()
  559.    App.Title = "Your Application"
  560.    gsLicensedUser = "Whoever This Software is Licensed To"
  561.    gnProgVer = 1!
  562.    gnDBVer = 1!
  563.    gsProgSer = "0000-0000-000"
  564.    gsDataPath = CurDir$
  565.    gvDateLastCleanup = Now
  566.    MakeFrm3D Me
  567.    MakeCtl3D lblBorder
  568.    PopulateSysInfo
  569. End Sub
  570. Sub PopulateSysInfo ()
  571.    Dim iWinVer%, nSize%, iRet%
  572.    Dim lStatus&, lMemory&
  573.    Dim sMajor$, sMinor$, sBuffer$
  574.    Screen.MousePointer = 11
  575.    lblAppName(0).Caption = App.Title
  576.    lblAppName(1).Caption = App.Title
  577.    lblVersion.Caption = "Version " & Format$(gnProgVer, "#0.00")
  578.    Center Me
  579.    DoEvents
  580.    iWinVer = GetVersion()
  581.    lStatus = GetWinFlags()
  582.    sMajor = Format$(iWinVer And &HFF)
  583.    sMinor = Format$(iWinVer \ &H100, "00")
  584.    If lStatus And WF_WINNT Then
  585.       lblWinVer.Caption = "Microsoft Windows NT " & sMajor & "." & sMinor
  586.    Else
  587.       lblWinVer.Caption = "Microsoft Windows " & sMajor & "." & sMinor
  588.    End If
  589.    If lStatus And WF_STANDARD Then lblWinMode.Caption = "Standard"
  590.    If lStatus And WF_ENHANCED Then lblWinMode.Caption = "Enhanced"
  591.    If lStatus And WF_CPU286 Then lblCPU.Caption = "80286"
  592.    If lStatus And WF_CPU386 Then lblCPU.Caption = "80386"
  593.    If lStatus And WF_CPU486 Then lblCPU.Caption = "80486"
  594.    If lStatus And WF_80x87 Then
  595.       lblMathCo.Caption = "Present"
  596.    Else
  597.       lblMathCo.Caption = "Not Present"
  598.    End If
  599.    lMemory = GetFreeSpace(0)
  600.    lblTotalFreeMem.Caption = "" & Format$(lMemory \ 1024, "###,###,###") + "K"
  601.    DoEvents
  602.    lMemory = GlobalCompact(&HFFFFFFFF)
  603.    lblLargestFreeBlock.Caption = "" & Format$(lMemory \ 1024, "###,###,###") + "K"
  604.    If iWinVer >= &H310 Then
  605.       Dim shi As SYSHEAPINFO
  606.       shi.dwSize = Len(shi)
  607.       If SystemHeapInfo(shi) Then
  608.          lblUserFree.Caption = "" & Format$(shi.wUserFreePercent) & "%"
  609.          lblGDIFree.Caption = "" & Format$(shi.wGDIFreePercent) & "%"
  610.       End If
  611.    End If
  612.    lblLicensedUser.Caption = gsLicensedUser
  613.    lblProgSer.Caption = gsProgSer
  614.    lblDBVer.Caption = Format$("" & gnDBVer, "#0.00")
  615.    lblDBPath.Caption = LCase$(gsDataPath)
  616.    lblDBCleanDate.Caption = Format$(gvDateLastCleanup, "\a\t hh:mm \o\n mm-dd-yyyy")
  617.    lblWinDir = LCase$(WindowsDir())
  618.    nSize = 144
  619.    sBuffer = Space$(nSize + 1)
  620.    iRet = GetSystemDirectory(sBuffer, nSize)
  621.    lblWinSysDir.Caption = LCase$(Left$(sBuffer, iRet))
  622.    Screen.MousePointer = 0
  623. End Sub
  624.